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| 13 | 
GETPTR Bote =1984 00:33:43  VAX=11 Bliss-32 V4.0-742 1 GETR 
1o-ge0-1 38% 90°33:33 DISKSVMSMASTER:CF11X.SRCIGETPTR.B32; fag * a) vO4e 


MODULE GETPTR ( 


; 1 0001 0 

: 000 LANGUAGE (BL1IS$S$32), 

: ‘ $508 6 IDENT = 'V 4=000° 
; 4 0004 0 d= 
5 5 O02 1 BEGIN 
: 6 B26 1 | 
3 7 0007 1! 

3 3 B08 \ Le ARE RRA EEA 

5 ie ® 

3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

; 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 

: \¢ Bolg ! ~ ALL RIGHTS RESERVED. * 

5 : & | 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
bs 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
$ i iP : eg TRANSFERRED. * 

° :* * 

; 21 0021 1 !* pho INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

H 22 it 4 1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 23 0023 1 !« CORPORATION. * 

3 24 0024 1 !* * 
3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 27 0027 1 !* * 
: 28 0028 1 !« * 
: a4 534 : Lee RARER ERRATA 

, .. 3 0031 1 !++ 

oa 0032 1! 

s 33 0033 1 ! FACILITY: F11IACP Structure Level 2 

3 34 0034 1! 

3 35 0035 1 ! ABSTRACT: 

3 36 0036 1! ; 

Seaek 4 0037 1! This routine returns the value of a header map pointer. 
; 38 0038 1! 
; 39 0039 1 ! ENVIRONMENT: 
3 40 0040 1! 
3; 6) 0041 1! STARLET operating system, including privileged system services 
3 og OOe§ 1! and internal exec routines. 
; 4 004 7! 
3 44 0044 1 !-- 
3 45 0045 1! 

3 46 0046 1! 

: 44 srt ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Nov-1977 17:12 
P 49 seb 1 ! MODIFIED BY: 
3 50 050 1! 
eek 0051 1! v03-001 CDS0001 Christian D. Saether 31-July-1984 
3 2g Bneg : Define Linkage in require file, remove local definition. | 
3 54 054 1! B0101 ACG0008 Andrew C. Goldstein, 26-Dec-1978 19:20 
3 2? bee ' Skip placement pointers (for placement support) | 
: 57 008? ts B0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:00 


G cn, ite oP71882 99:93:58 SI cbUmGMASTERSCE TIN. SReaGerPTR.B32;1°%" (15, 


| 
| 
Previous revision history moved to (F11B.SRCJF11B.REV | 
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GETPTR 16-Sep-1984 00:33:43 VAX-11 Bliss-32 V4.0-742 Page 3. 

v04-000 14-Sep-1984 99:30:39 DISKSVMSMASTER:CF11X.SRCIGETPTR.B32; 1 ? (2). 

: 66 199? ! GLOBAL ROUTINE GET_MAP_POINTER : L_MAP_POINTER NOVALUE = ° 
3; 8 1089 1 !4+ : 
; 69 1928 1: ; 
3 4 1922 : FUNCTIONAL DESCRIPTION: ; 
° . | o 
. £ 1061 1! This routine returns the contents of a file header map pointer and ‘ 
ae i 1066 2.3 advances the map area pointer to the next map pointer. ‘ 
o> 1065 1! : 
See ¢ 1064 1! | ; 
. 1065 1 ! CALLING SEQUENCE: ; 
.- ae 1966 17 GET_MAP_POINTER () ‘ 
; 1067 1! ; 
; 1068 1 ! INPUT PARAMETERS: ; 
; Ww 1069 1! NONE | : 
; 3 1070 1! : 
= 1071 1°! IMPLICIT INPUTS: : 
, ¢€ 19t6 1! R8 = address of header map pointer ; 
;. & 1075 1: : 
: 85 1074 1 ! OUTPUT PARAMETERS: : 
>; 686 1075 1! NON ; 
s or 1076 1! : 
; #8 1077 1°! IMPLICIT OUTPUTS: : 
; «BY 1078 1! R6 = block count : 
7 oe 1079 1! R7 = starting LBN ; 
; O91 1080 1! : 
; § 1081 1 ! ROUTINE VALUE: : 
; 1oee . | NONE : 
>: 694 1083 1! 3 
1084 1 ! SIDE EFFECTS: : 
; 38 HH ' R8 advanced to next pointer (placement pointers are transparently skipped) : 
; «98 1087 1 !-- ; 
;. 9 1088 1 ; 
; 100 1089 2 BEGIN : 
: 101 1090 2 ; 
s 102 1091 2 EXTERNAL REGISTER : : F 
: 105 1092 2 COUNT = 6, ' retrieval pointer block count : 
> 104 1093 2 LBN =f, ! retrieval pointer start LBN 3 
s 105 1094 § MAP_POINTER = 8 : REF BBLOCK; ! address of map pointer : 
: 106 1095 ; 
: 107 1096 2 . ‘ ‘ ‘ 
3 198 44 2 Determine the type of the map pointer and interpret it appropriately. : 
s 110 1099 3 
s Wi 1100 IF .MAP_POINTERCFM2$V_FORMAT) EQL FM2$C_PLACEMENT ; 
: 116 183 THEN MAP_POINIER = .MAP_POINTER + FM2$C_LENGTHO; ; 
s 376 1108 CASE .MAP_POINTERCFM2$V_FORMAT] FROM 0 TO 3 OF ; 
s 115 1104 SET 3 
; «64116 1105 3 
3; 117 1106 CFM2$C_PLACEMENT]: BEGIN : 
; «118 1197 COUNT = 0; : 
3 #119 1108 LBN = 0; ; 
s 120 1109 MAP_POINTER = .MAP_POINTER + 2; 3 
: 121 1110 END; : 
: 122 1111 3 


¢ ott off off off off off off oft off ofl off oft of odd oft odd oft oft off of oft oft of odd off oft odd oft of odd of oft oft odd oft ode 28d odd oft of oft ode ode od 


2 oo8d 288 228 288 288 28d 28d 288 odd ode 288 28d ot 


GETPTR 16-3¢ 4 VAXo11 BL iss=32 V4 0-742 4 
v04-000 186p-1984 19:30:39 DISKSVMEMASTERSEI Tix, SRCIGETPTR.B32;1°% (25 


CFM2$C_FORMAT1): BEGIN 


UNT = WAP _POINTERCEM2SB, COUNT! | 
LBN<16,16> =". MAP_POINTERLFM2SV hee 
LBN<O,16> = .MAP_POINTERLFM2$W_COWLBN 
MAP POINTER = -WAP_POINTER + 

COUNT = .COUNT + 13 | 
END: 

CFM2$C_FORMAT2]: | BEGIN | 
COUNT = .MAP_PO NTERCE MSV COUNT2]; 
LBN os imap POINTERCFM2$L_LBN2); 
Ar POINTER + 6; 


COURT. = = NT EOUNT 
END; 


CFM2SC_FORMAT3]: BEGIN 


i kk kh kt ds 
Ra yy Ne Ie Met ees yy ee tert oh 


NOVUESWN—OOONOUSWN—O”O 
Ok kk kk kd a 


as ss ss 2 Ss — ss os 2 2 as Ls Ls a ts 


AAWNANI PIPPI PIPNPONONPYPY SS SS OO OS 
AME WN | O ODONOUFS WN —"OVOONOUL wr 


: I 
T 

: MAP_POINTER = .M 
+ 

3 

3 

3 

3 

2 

2 

2 

2 

1 


END; ! end of routine GET_MAP_POINTER 


.TITLE GETP | 
"IDENT \V04- TH00\ | 
.PSECT $CODE$,NOWRT,2 
A 0 T_MAP_POINTER:: 
wees " 0 inl abstr “BITB . 1(MAP_POINTER), #192 : 1100) 
03 12 00005 BNEQ 1 : 
58 02 CO 00007 ADDL2 #2, MAP_POINTER > 1101 
51 68 02 OE EF OOO0A 1$: EXT2V #14, #27 (MAP_POINTER), R1 + 1103 
03 00 51 CF OOOOF CASEL a, #0, : 
002 0020 000E 0008 00013 2$: WORD 3$- $.- : 
5$-0$,- f | 
oe oe 3 
56 49 001B 3$ CLRQ al + 1107 | 
58 02 ¢O 0001D ADDL2 #2, MAP_POINTER : 1109 | 
5 00020 RSB : 1103 
56 88 H 99 1 4$ MOVZBL (MAP_POINTER)+, COUNT 111 
50 88 06 00 EF 00024 EXT2 0, B6, (MAP_POINTER)+, RO > 1114 
57 10 10 50 FO 00029 INSV #16, #167 LBN : 
57 88 80 00 F nov MAP _ POINTERS+, LBN 1115 
56 88 E 00 EF 00033 5$ EXTZV #0, #14, (MAP POINTER)*+, COUNT > 1121 
g 01 AB 00 09 8 MOVL 1 (MAP POINTERY : 11 ¢ 
58 C C ADDL2 #5, MAP_P Tae 5 1123 
8 11 0003F BRB : 1124 
50 88 1 9C 00041 6$ ROTL #16, (MAP_POINTER)+, RO > 11208 


F 13 
16-Sep-1984 90:33:33 VAX-11 Bliss-32 V4.0-742 
14-Sep-1984 12:30:29 DISKSVMSMASTER:CF11X.SRCIGETPTR.B32; iad 
56 50 1 00 EF 00045 EXTZV #0, #30, RO, COUNT 
$5 88 DO 004A MOVL (MAP POINTER +, LBN 
56 6 0004D 7$: INCL Cou 
05 0004F RSB 
; Routine Size: 80 bytes, Routine Base: $CODE$ + 0000 
148 1137 (1 
149 1138 1 END 
150 1139 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 80 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
Sennen Symbols =------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 29 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:GETPTR/OBJ=OBJ$:GETPTR MSRC$:GETPTR/UPDATE=(ENHS$:GETPTR) 


Size: 80 ode + 9” data bytes 
Run Time 
Sleseed tees 00:1 3 
Lines/CPU Min: 77 
Lexemes/CPU-Min: 2694 
penery ¥ Used: 113 pages 
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